home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Phil and Dave's Excellent CD HFS Files.7z / Phil and Dave's Excellent CD HFS Files / Peripherals / HyperScan / HyperScan Samples / card_26529.txt < prev    next >
Text File  |  1989-02-26  |  2KB  |  87 lines
  1. -- card: 26529 from stack: in
  2. -- bmap block id: 29986
  3. -- flags: 0000
  4. -- background id: 3737
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 81
  10. -- high flags: 2004
  11. -- rect: left=275 top=7 right=88 bottom=505
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 2
  16. -- text size: 14
  17. -- style flags: 0
  18. -- line height: 18
  19. -- part name: Notes
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   lock screen
  23.   hide me
  24.   unlock screen with dissolve
  25. end mouseUp
  26.  
  27.  
  28.  
  29. -- part 2 (button)
  30. -- low flags: 00
  31. -- high flags: 0002
  32. -- rect: left=1 top=323 right=341 bottom=35
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 1300 / 1300
  35. -- text alignment: 1
  36. -- font id: 0
  37. -- text size: 12
  38. -- style flags: 0
  39. -- line height: 16
  40. -- part name: 
  41. ----- HyperTalk script -----
  42. on mouseUp
  43.   ---find out WHERE on the icon you clicked
  44.   put (item 1 of the clickLoc) - (item 1 of the Loc of me) into E
  45.  
  46.   ---if the click was on the left then
  47.   if E < 0 then
  48.     set icon of me to 1301
  49.     wait 1
  50.     set icon of me to 1300
  51.     push card
  52.     put PathWay() & "SN Feedback" into feedPath
  53.     set cursor to watch
  54.     visual effect dissolve fast
  55.     go stack feedPath
  56.  
  57.     ---if the click was on the right then
  58.   else if E > 0 then
  59.     set icon of me to 1302
  60.     wait 1
  61.     set icon of me to 1300
  62.     global navMenu
  63.     visual effect iris close to black
  64.     visual effect iris open
  65.     if navMenu is empty then put "Welcome" into navMenu
  66.     go card navMenu of stack "Support Navigator:Support Navigator"
  67.   end if
  68. end mouseUp
  69.  
  70. Function PathWay
  71. put the long name of stack "Home" into NewName
  72. delete char 1 to 7 of NewName
  73. repeat
  74.   if offset(":",NewName) is 0 then
  75.     exit repeat
  76.   else
  77.     put char 1 to offset(":",NewName) of NewName after NewPath
  78.     delete char 1 to offset(":",NewName) of NewName
  79.   end if
  80. end repeat
  81. return NewPath
  82. end PathWay
  83.  
  84.  
  85. -- part contents for card part 1
  86. ----- text -----
  87. Photo by Bill Atkinson